#!/usr/bin/perl

use strict;
# make sure to start variables before using them.
my $hallo;

sub useVar {
  print("$hallo");
}

$hallo = "hallo";
useVar
